home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #1 / Amiga Plus 1995 #1.iso / fish-disketten / fish_901-910 / d908 / golded1 / install next >
Text File  |  1994-12-13  |  27KB  |  1,094 lines
  1.  
  2. ; $VER: GoldED 0.94
  3. ; Copyright ©1993 Dietmar Eilert - All Rights Reserved
  4.  
  5. (delopts "oknodelete" "force" "askuser")
  6. (complete 0)
  7.  
  8. (set @default-dest "")
  9.  
  10. ; set default language selection (catalogs) to 'none'
  11.  
  12. (set catalogs 0)
  13.  
  14. ; sure we are running under a 2.04 ROM ?
  15.  
  16. (if (< (/ (getversion) 65536) 37)
  17.  
  18.     (
  19.       (message "\n Sorry, this package requires OS v2.04 or better. \n")
  20.       (exit (quiet))
  21.     )
  22. )
  23.  
  24. (if (exists "GoldED:" (noreq))
  25.  
  26.     (set update (askchoice
  27.  
  28.         (prompt (cat "\nGOLDED: assign detected...\n"))
  29.  
  30.         (help (cat "\n"
  31.  
  32.             " If you decide for updating your old installation \n"
  33.             " you won't be asked for directories. Directories  \n"
  34.             " of your previous installation will be used.      \n"
  35.             "                                                  \n"
  36.             " If you decide for removing your current GoldED   \n"
  37.             " installation this script will try to delete      \n"
  38.             " files introduced by a former GoldED installation.\n"
  39.             " However, this utility is not able to remove all  \n"
  40.             " files related to GoldED. For example it won't    \n"
  41.             " remove the reqtools library since this library   \n"
  42.             " might be used by other applications, too. It     \n"
  43.             " won't remove the QuickStarter since it doesn't   \n"
  44.             " know where it has been placed.                   \n"
  45.         ))
  46.  
  47.         (default 1)
  48.  
  49.         (choices
  50.  
  51.             "install new"
  52.             "update existing GoldED"
  53.             "remove GoldED from your system"
  54.         )
  55.     ))
  56. )
  57.  
  58. ; remove GoldED ?
  59.  
  60. (if (= update 2) (
  61.  
  62.     (if (exists "GoldED:" (noreq))
  63.  
  64.         (
  65.           (run "assign >NIL: oldged: GoldED:/")
  66.  
  67.           (run "assign >NIL: HiSpeed:  remove")
  68.           (run "assign >NIL: GoldED:   remove")
  69.           (run "assign >NIL: GUIMake:  remove")
  70.  
  71.           (run "delete >NIL: oldged:GoldED all quiet force")
  72.           (run "delete >NIL: oldged:GoldED.info")
  73.  
  74.           (if (exists "locale:catalogs/deutsch/GoldED.catalog" (noreq))
  75.               (run "delete >NIL: locale:catalogs/deutsch/GoldED.catalog")
  76.           )
  77.  
  78.           (run "delete >NIL: sys:prefs/presets/GED_#? all quiet")
  79.           (run "delete >NIL: sys:prefs/presets/GoldED all quiet")
  80.  
  81.           (if (exists "envarc:GoldED")
  82.               (run "delete >NIL: envarc:GoldED all quiet")
  83.           )
  84.  
  85.           (run "delete >NIL: env:GoldED all quiet")
  86.           (run "delete >NIL: fonts:GoldED all quiet")
  87.           (run "delete >NIL: s:GUIMake.pref")
  88.  
  89.           ((startup
  90.  
  91.               "GoldED"
  92.               (prompt "remove 'GoldED:' assign ?\n")
  93.               (help "You must have this assign removed !")
  94.               (command  "; (removed)")
  95.           ))
  96.  
  97.           ((startup
  98.  
  99.               "HiSpeed"
  100.               (prompt "remove 'HiSpeed:' assign ?\n")
  101.               (help "You must have this assign removed !")
  102.               (command  "; (removed)")
  103.           ))
  104.  
  105.           ((startup
  106.  
  107.               "GED_quick"
  108.               (prompt "remove quickstarter access ?\n")
  109.               (help "You must have this access removed !")
  110.               (command  "; (removed)")
  111.           ))
  112.  
  113.           ((startup
  114.  
  115.               "GUIMake"
  116.               (prompt "remove GUIMake access ?\n")
  117.               (help "You must have this access removed !")
  118.               (command  "; (removed)")
  119.           ))
  120.  
  121.         )
  122.     )
  123.     (exit (quiet))
  124. ))
  125.  
  126. ; what parts should be installed ?
  127.  
  128. (if (= update 0) (
  129.  
  130.     (set parts (askoptions 
  131.  
  132.         (prompt "\n What parts do you want to have installed ? \n")
  133.  
  134.         (help (cat "\n"
  135.  
  136.             " You should decide for a complete installation if  \n"
  137.             " you are a novice user. Preferences files, manuals \n"
  138.             " & libraries are essential for running the editor  \n"
  139.             " (e.g. the manual is referenced by GoldED's help   \n"
  140.             " facility).                                        \n"
  141.             "                                                   \n"
  142.             " The QuickStarter is a small (4 KB) GoldED front-  \n"
  143.             " end. You can use it AS IF it were a real editor.  \n"
  144.             " For example you might type 'ed letter' to edit the\n"
  145.             " file letter if the QuickStarter were named 'ed'.  \n"
  146.             " The big advantage of a QuickStarter is its abilty \n"
  147.             " to pass a new job to an already running instance  \n"
  148.             " of GoldED (if there is any). Needless to say that \n"
  149.             " this happens *very* fast. The QuickStarter may be \n"
  150.             " made resident (the main editor may not).          \n"
  151.             "                                                   \n"
  152.             " Backups of your current settings (if available)   \n"
  153.             " are made. No libraries will be overwritten unless \n"
  154.             " they are outdated.                                \n"
  155.           ))
  156.  
  157.         (choices
  158.  
  159.             " main editor & manual"
  160.             " QuickStarter"
  161.             " libraries"
  162.             " support tools"
  163.          )
  164.  
  165.         (default 255))
  166.     ))
  167.  
  168.     (set parts 255)
  169. )
  170.  
  171. (complete 1)
  172.  
  173. (if (OR (IN parts 0) (IN parts 6)) (
  174.  
  175.     (if (= update 1) 
  176.  
  177.         (if (> (getsize "golded:golded.info") 800)
  178.  
  179.             (set icons 1)
  180.             (set icons 0)
  181.         )
  182.  
  183.         ((set icons (askchoice
  184.  
  185.             (prompt  "Select preferred icon type")
  186.  
  187.             (choices
  188.  
  189.                 " med-res icons (pixel ratio 1:2)"
  190.                 " hi-res  icons (pixel ratio 1:1)"
  191.             )
  192.  
  193.             (help (cat "\n"
  194.  
  195.                 " Select med-res if the pixel ratio of your preferred\n"
  196.                 " screen resolution is approx. 1:2 (e.g. in 640*200  \n"
  197.                 " mode the pixel width is half of pixel height).     \n"
  198.                 " Select hi-res if the pixel ratio of your preferred \n"
  199.                 " resolution is approx. 1:1 (eg. 640*400 or 800*600).\n"
  200.             ))
  201.  
  202.             (default 1)
  203.         ))
  204.     ))
  205. ))
  206.  
  207. (complete 2)
  208.  
  209. ; install the editor itself ?
  210.  
  211. (if (IN parts 0) (
  212.  
  213.     (set reboot 1)
  214.  
  215.     (if (= update 1)
  216.  
  217.         (set target "golded:/")
  218.  
  219.         ((set target (askdir
  220.  
  221.             (prompt  " Where do you want to have the package installed ? \n")
  222.  
  223.             (help (cat "\n"
  224.  
  225.                 " Simply select a directory (a root directory is    \n"
  226.                 " fine, too). I'm going to create a new directory   \n"
  227.                 " called 'GoldED' within the directory you specify. \n"
  228.                 " You should select a directory which has an icon   \n"
  229.                 " attached to it (e.g. SYS:Utilities).              \n"
  230.                 "                                                   \n"
  231.                 " The GoldED directory will keep several support    \n"
  232.                 " files/tools as well as the main editor. ARexx     \n"
  233.                 " macros related to GoldED are usually kept in a    \n"
  234.                 " subdirectory of GoldED. Furthermore the manuals   \n"
  235.                 " reside in GoldED.                                 \n"
  236.             ))
  237.  
  238.             (default "SYS:TOOLS")
  239.         ))
  240.     ))
  241.  
  242.     (set @default-dest target)
  243.  
  244.     (complete 5)
  245.  
  246.     (set targetsize (getdiskspace target))
  247.  
  248.     (if (< targetsize 1000000) (
  249.  
  250.         (if (<> (getdevice target) "RAM") (
  251.  
  252.             (abort (cat "\n"
  253.  
  254.                 " This installation requires about 1 MB free on\n"
  255.                 " the volume where you wish to install GoldED. \n"
  256.                 " Please make this space available and then re-\n"
  257.                 " install.                                     \n"
  258.             ))
  259.         ))
  260.     ))
  261.  
  262.     (complete 10)
  263.  
  264.     (copyfiles
  265.  
  266.         (source "data/main")
  267.         (dest target)
  268.         (infos)
  269.         (all)
  270.     )
  271.  
  272.     (complete 15)
  273.  
  274.     (if (= icons 0)
  275.  
  276.         (copyfiles
  277.  
  278.           (source "data/Icons/GoldED")
  279.           (dest (tackon target "GoldED"))
  280.           (infos)
  281.           (all)
  282.         )
  283.     )
  284.  
  285.     (run 
  286.         (cat "assign GoldED: "
  287.               (tackon target "GoldED")
  288.     ))
  289.  
  290.     (complete 20)
  291.  
  292.     (if (= update 1)
  293.  
  294.         (
  295.             (set catalogs 3)
  296.  
  297.             (if (exists "locale:catalogs/deutsch/golded.catalog" (noreq))
  298.  
  299.                 (
  300.                     (set catalogs 1)
  301.                     (delete "sys:catalogs/deutsch/golded.catalog")
  302.                 )
  303.             )
  304.         )
  305.  
  306.         ((set catalogs (askoptions
  307.  
  308.             (prompt "\n What catalogs do you want to have installed ? \n")
  309.  
  310.             (choices
  311.                 " English"
  312.                 " German "
  313.             )
  314.  
  315.             (help (cat "\n"
  316.  
  317.                 " Catalogs are required by OS2.1 or better to localize\n"
  318.                 " GoldED, i.e. to make the editor use the language    \n"
  319.                 " selected by the locale preferences program (however \n"
  320.                 " menus are not loacalized since menus are not part of\n"
  321.                 " the editor itself).                                 \n"
  322.             ))
  323.  
  324.             (default 3)
  325.         ))
  326.     ))
  327.  
  328.     (if (not (exists "locale:" (noreq))) (
  329.  
  330.         (makedir "sys:locale")
  331.         (makeassign  "locale" "sys:locale")
  332.     ))
  333.  
  334.     (if (not (exists "locale:catalogs"))) (makedir "locale:catalogs")
  335.  
  336.     (if (IN catalogs 0) (
  337.  
  338.         (if (not (exists "locale:catalogs/deutsch"))) (makedir "locale:catalogs/deutsch")
  339.  
  340.         (copyfiles
  341.  
  342.             (source "data/catalogs/deutsch")
  343.             (dest   "locale:catalogs/deutsch")
  344.             (all)
  345.         )
  346.     ))
  347.  
  348.     (if (= update 0)
  349.  
  350.         (   
  351.             (makeassign  "GoldED" (tackon target "GoldED"))
  352.             
  353.             (startup
  354.  
  355.                 "GoldED"
  356.  
  357.                 (prompt "Add 'GoldED:' assign to 's:user-startup' ? \n")
  358.  
  359.                 (help (cat "\n"
  360.                 
  361.                     " This editor does support user menus, i.e. you can \n"
  362.                     " set up own menu items of several types (scripts,  \n"
  363.                     " ARexx macros, DOS commands, ...). Thus ususally   \n"
  364.                     " external files have to be referenced. It is quite \n"
  365.                     " convenient - and strongly recommended - to place  \n"
  366.                     " files related to GoldED in a symbolic directory   \n"
  367.                     " GoldED: (or one of its subdirectories). If you    \n"
  368.                     " don't set up an approbiate assign you will run    \n"
  369.                     " into TROUBLE. Nevertheless, the main editor itself\n"
  370.                     " does not need any assign to run. Actually it does \n"
  371.                     " not need any external file at all apart from its  \n"
  372.                     " config file (envarc:GOLDED/GOLDED.PREFS).         \n"
  373.                     "                                                   \n"
  374.                 )
  375.             )
  376.             
  377.             (command  ("ASSIGN >NIL: GOLDED: %s " (tackon target "GoldED")))
  378.         ))
  379.     )
  380. ))
  381.  
  382. (complete 25)
  383.  
  384. ; install QuickStarter ?
  385.  
  386. (if (IN parts 1) (
  387.  
  388.     (set progname (askchoice
  389.  
  390.         (prompt " Choose a name for the QuickStarter")
  391.  
  392.         (help (cat "\n"
  393.  
  394.             " The QuickStarter is a small (4 KB) GoldED front-  \n"
  395.             " end. You can use it AS IF it were a real editor.  \n"
  396.             " For example you might type 'ed letter' to edit the\n"
  397.             " file letter if the QuickStarter were named 'ed'.  \n"
  398.             " The big advantage of a QuickStarter is its abilty \n"
  399.             " to pass a new job to an already runnning instance \n"
  400.             " of GoldED (if there is any). This happens FAST.   \n"             
  401.             "                                                   \n"
  402.             " The QuickStarters default name is 'ED' but feel   \n"
  403.             " free to choose any name you like. Personally, I   \n"
  404.             " prefer to use 'ED' (replacing Commodore's ED).    \n"
  405.         ))
  406.  
  407.         (choices 
  408.  
  409.             "GED"
  410.             "ED"
  411.             "(other)"
  412.         )
  413.  
  414.         (default 1)
  415.     ))
  416.  
  417.     (complete 30)
  418.  
  419.     (if (= progname 0) (set name "GED"))
  420.     (if (= progname 1) (set name "ED" ))
  421.  
  422.     (if (= progname 2)
  423.  
  424.         (set name (askstring
  425.  
  426.             (prompt  " Enter a name:\n")
  427.  
  428.             (help (cat "\n"
  429.  
  430.                 " Any name (GED, ED, ...) will do. Existing files are \n"
  431.                 " overwritten. If you decide for 'ED', the original ED\n" 
  432.                 " is lost (well, let's call it a gain :-)              \n"
  433.             ))
  434.  
  435.             (default "ED")
  436.         ))
  437.     )
  438.  
  439.     (complete 35)
  440.  
  441.     (set comdir (askdir
  442.  
  443.         (prompt (cat "\n"
  444.  
  445.             " Now let's place the QuickStarter within a valid   \n"
  446.             " command directory. Select a directory:            \n"
  447.         ))
  448.  
  449.         (help (cat "\n"
  450.  
  451.             " You should select one of these directories if you \n"
  452.             " want to run the editor simply by typing its name, \n"
  453.             " no matter what your current path is:              \n"
  454.             "                                                   \n"
  455.             " SYS:C, SYS:TOOLS, SYS:UTILITIES or SYS:SYSTEM     \n"
  456.             "                                                   \n"
  457.             " If you choose ED as default name, you must either \n"
  458.             " place the quick starter into c: or delete the old \n"
  459.             " ED from c: to prevent race conditions.            \n"
  460.         ))
  461.  
  462.         (default "C:")
  463.     ))
  464.  
  465.     (copyfiles 
  466.  
  467.         (source  "data/main/GoldED/ED")
  468.         (dest    comdir)
  469.         (newname name)
  470.     )
  471.  
  472.     (run "resident >NIL: ED remove")
  473.  
  474.     (startup
  475.  
  476.         "GED_quick"
  477.  
  478.         (prompt "\n Make QuickStarter resident ? \n")
  479.  
  480.         (help (cat "\n"
  481.  
  482.             " I would suggest to make the QuickStarter (4 KB)   \n"
  483.             " resident - it will work faster.                   \n"
  484.         ))
  485.  
  486.         (command  (cat "resident " (tackon comdir name) " pure"))
  487.     )
  488. ))
  489.  
  490. (complete 40)
  491.  
  492. ; install presets ...
  493.  
  494. (if (IN parts 0) (
  495.  
  496.     (set prefsdir "sys:prefs/presets/GoldED")
  497.  
  498.     (if (exists prefsdir) (
  499.  
  500.         (set bakdir "sys:prefs/presets/GED_BAK")
  501.  
  502.         (if (exists bakdir) (
  503.  
  504.             (while (exists bakdir) (
  505.                 (set bakdir (cat bakdir "X"))
  506.             ))
  507.         ))
  508.  
  509.         (complete 45)
  510.  
  511.         (working "creating backup of old presets ...")
  512.  
  513.         (complete 50)
  514.  
  515.         (copyfiles
  516.  
  517.           (source prefsdir)
  518.           (dest   bakdir)
  519.           (nogauge)
  520.           (all)
  521.         )
  522.  
  523.         (message (cat "\n"
  524.  
  525.             "Backups of your old preferences have been written\n"
  526.             "to directory: "
  527.              bakdir
  528.         ))
  529.  
  530.         (run (cat "delete " prefsdir " all quiet"))
  531.     ))
  532.  
  533.     (complete 55)
  534.  
  535.     (copyfiles
  536.  
  537.       (source "data/presets")
  538.       (dest   "sys:prefs/presets")
  539.       (all)
  540.     )
  541.  
  542.     (complete 60)
  543.  
  544.     ; install config file ...
  545.  
  546.     (set language 255)
  547.  
  548.     ; already a language selected (while installing main editor) ?
  549.  
  550.     (if (= catalogs 1) (set language 0))
  551.     (if (= catalogs 2) (set language 1))
  552.  
  553.     (if (= language 255) (
  554.  
  555.         (set language (askchoice
  556.  
  557.             (prompt "\n Choose default menu definition file: \n")
  558.  
  559.             (choices
  560.  
  561.                 "English"
  562.                 "Deutsch"
  563.             )
  564.  
  565.             (help (cat "\n"
  566.  
  567.                 " GoldED is localized (i.e. uses the locale library   \n"
  568.                 " of WB2.1/3.x) as far as its internal textes are     \n"
  569.                 " concerned. Since menus are not part of the editor   \n"
  570.                 " itself they are not localized. Instead, the user may\n"
  571.                 " specify a menu definition file to get menus in his/ \n"
  572.                 " her preferred language.                             \n"
  573.             ))
  574.  
  575.             (default 0)
  576.         ))
  577.     ))
  578.  
  579.     (set guimake (askbool
  580.  
  581.         (prompt "\n Install GUIMake's menu (©'93 Rico Krasowski) ?")
  582.  
  583.         (help (cat "\n"
  584.  
  585.             " GUIMake is a GUI driven compiler frontend for GoldED\n"
  586.             " (to be used instead of makefiles). Supports project \n"
  587.             " management and comfortable error handling (e.g. jump\n"
  588.             " to first error after compilation). Included with    \n"
  589.             " kind permisssion of the author of GUIMake.          \n"
  590.             "                                                     \n"
  591.             " Supported compiler(s) so far: unregistered DICE and \n"
  592.             " registered DICE.                                    \n"
  593.         ))
  594.  
  595.         (default 1)
  596.     ))
  597.  
  598.     (if (= guimake 1)
  599.  
  600.         (
  601.             (if (= language 0)
  602.  
  603.                 (set menufile "GUI_FactoryUS.men")
  604.                 (set menufile "GUI_FactoryD.men" )
  605.             )
  606.  
  607.         )
  608.  
  609.         (
  610.             (if (= language 0)
  611.  
  612.                 (set menufile "FactoryUS.men")
  613.                 (set menufile "FactoryD.men" )
  614.             )
  615.         )
  616.     )
  617.  
  618.     (if (= (database "vblank") 50) (
  619.  
  620.         (set vblank 1)
  621.         (set vblank 3)
  622.     ))
  623.  
  624.     (complete 61)
  625.  
  626.     (set screen (askchoice
  627.  
  628.         (prompt "\n Choose default screen resolution \n")
  629.  
  630.         (choices
  631.  
  632.             "custom screen NTSC"
  633.             "custom screen NTSC interlaced"
  634.             "custom screen PAL"
  635.             "custom screen PAL interlaced"
  636.             "workbench screen"
  637.         )
  638.  
  639.         (default vblank)
  640.  
  641.         (help (cat "\n"
  642.  
  643.             " Decide for a default screen mode to be used when the\n"
  644.             " editor is started for the 1st time. I would suggest \n"
  645.             " to use a custom screen for this will make GoldED run\n"
  646.             " faster and look much nicer.                         \n"
  647.         ))
  648.     ))
  649.  
  650.     (complete 62)
  651.  
  652.     (if (= screen 4)
  653.  
  654.         (set display "workbench.dsp")
  655.  
  656.         (
  657.             (set mode (askchoice
  658.             
  659.                 (prompt "Select look & feel")
  660.  
  661.                 (choices
  662.  
  663.                     "Blue   (2 colors, faaaast)"
  664.                     "TKEd   (4 colors, my favorite)"
  665.                     "Sun    (4 colors, pretty)"
  666.                     "Night  (4 colors, strange)"
  667.                     "Ocean  (4 colors, fresh)"
  668.                     "Stone  (2 colors, fast)"
  669.                 )
  670.  
  671.                 (help (cat "\n"
  672.  
  673.                     " Suggestion: use a 2-color mode if your Amiga  \n"
  674.                     " isn't that fast (68000) but a four color mode \n"
  675.                     " for any other Amiga. Be warned: There a many  \n"
  676.                     " more modes available from within GoldED :-)   \n"
  677.                 ))
  678.             ))
  679.  
  680.             (if (= mode 0) (set display "Blue" ))
  681.             (if (= mode 1) (set display "TKEd" ))
  682.             (if (= mode 2) (set display "Sun"  ))
  683.             (if (= mode 3) (set display "Night"))
  684.             (if (= mode 4) (set display "Ocean"))
  685.             (if (= mode 5) (set display "Stone"))
  686.  
  687.             (if (or (= screen 0) (= screen 1))
  688.  
  689.                 (set display (cat display "_NTSC"))
  690.                 (set display (cat display "_PAL" ))
  691.             )
  692.  
  693.             (if (or (= screen 1) (= screen 3)) (
  694.  
  695.                 (set display (cat display "_LACE"))
  696.             ))
  697.  
  698.             (set display (cat display ".dsp"))
  699.         )
  700.     )
  701.  
  702.     (complete 63)
  703.  
  704.     (set printer (askchoice
  705.  
  706.         (prompt "\n What printer do you own ? \n")
  707.  
  708.         (choices
  709.  
  710.             "DeskJet or similar (Olivetti, Fujitsu, ...)"
  711.             "Laser printer (PCL)"
  712.             "none/other"
  713.         )
  714.  
  715.         (default 0)
  716.  
  717.         (help "\n Simply select the printer model you own.")
  718.     ))
  719.  
  720.     (if (= printer 2)
  721.  
  722.         (set prtfile "standard.prt"  )
  723.         (set prtfile "DeskJetLQ.prt" )
  724.     )
  725.  
  726.     (complete 64)
  727.  
  728.     (set proglang (askchoice
  729.  
  730.         (prompt "\n Select preferred programming language:\n")
  731.  
  732.         (choices
  733.  
  734.             "C"
  735.             "Pascal"
  736.             "Basic"
  737.             "other"
  738.         )
  739.  
  740.         (default 0)
  741.  
  742.         (help (cat "\n"
  743.  
  744.             " GoldED offers smart indention after keywords like   \n"
  745.             " IF. The indention scheme depends on your programming\n"
  746.             " language. Additionally, a C-dictionary is available \n"
  747.             " (required for AutoCompletion).                      \n"
  748.         ))
  749.     ))
  750.  
  751.     (if (= proglang 0) 
  752.  
  753.         ((set indention  "C.ind") 
  754.          (set dictionary "C.dic"))
  755.  
  756.         ((set indention  "empty.ind")
  757.          (set dictionary "empty.dic"))
  758.     )
  759.  
  760.     (if (= proglang 1) (set indention "Pascal.ind"))
  761.     (if (= proglang 2) (set indention "Basic.ind"))
  762.  
  763.     (copyfiles
  764.  
  765.         (source "data/envarc")
  766.         (dest "envarc:")
  767.         (infos)
  768.         (all)
  769.     )
  770.  
  771.     (set prefs " data/presets/GoldED/")
  772.  
  773.     (run (cat
  774.        
  775.        "JOIN >CON:0/0/640/100/test/AUTO/WAIT/CLOSE "
  776.  
  777.        (cat prefs "standard.msc")
  778.        (cat prefs "standard.key")
  779.        (cat prefs "empty.ref"   )
  780.        (cat prefs  display      )
  781.        (cat prefs "standard.def")
  782.        (cat prefs  prtfile      )
  783.        (cat prefs "standard.tab")
  784.        (cat prefs  menufile     )
  785.        (cat prefs  dictionary   )
  786.        (cat prefs  indention    )
  787.        (cat prefs "standard.lay")
  788.        (cat prefs "empty.prj"   )
  789.  
  790.        " AS envarc:GoldED/GoldED.prefs"
  791.     ))
  792.  
  793.     (copyfiles
  794.  
  795.         (source "envarc:GoldED")
  796.         (dest   "env:GoldED")
  797.         (all)
  798.         (infos)
  799.     )
  800.  
  801.     (if (= icons 0)
  802.  
  803.         (copyfiles 
  804.  
  805.           (source "data/Icons/Envarc")
  806.           (dest   "envarc:")
  807.           (infos)
  808.           (all)
  809.         )
  810.     )
  811. ))
  812.  
  813. (complete 65)
  814.  
  815. (if (= update 0) (
  816.  
  817.     ; install libraries ?
  818.  
  819.     (if (IN parts 2) (
  820.  
  821.         (if (exists "support/reqtools")
  822.  
  823.             (copylib (source "support/reqtools/reqtools.library")     (dest "libs:"))
  824.         )
  825.  
  826.         (if (exists "support/amigaguide")
  827.  
  828.             (copylib (source "support/amigaguide/amigaguide.library") (dest "libs:"))
  829.         )
  830.  
  831.         (if (exists "support/xpk") (
  832.  
  833.             (copylib (source "support/xpk/xpkmaster.library")         (dest "libs:"))
  834.  
  835.             (if (not (exists "libs:compressors"))
  836.  
  837.                 (copyfiles
  838.  
  839.                     (source "support/xpk/compressors")
  840.                     (dest "libs:compressors")
  841.                     (all)
  842.                 )
  843.             )
  844.         ))
  845.     ))
  846.  
  847.     (complete 70)
  848.  
  849.     ; install fonts
  850.  
  851.     (copyfiles
  852.  
  853.         (source "data/fonts" )
  854.         (dest   "fonts:")
  855.         (all)
  856.         (nogauge)
  857.     )
  858. ))
  859.  
  860. (complete 75)
  861.  
  862. ; process second disk ...
  863.  
  864. (if (exists "/GoldED2")
  865.  
  866.     (set from "/GoldED2/")
  867.  
  868.     (
  869.          (if (= @app-name "GoldED/FF") (
  870.  
  871.              (while (not (exists "df0:GoldED2.info"))
  872.  
  873.                  (
  874.                    (message (cat "\n"
  875.  
  876.                        " Please insert part II of the GoldED distribution\n"
  877.                        " into disk drive df0: ...                        \n"
  878.                    ))
  879.                  )
  880.              )
  881.  
  882.              (makeassign "GOLDED2" "df0:")
  883.          ))
  884.  
  885.          (set from "GoldED2:GoldEd2/" )
  886.     )
  887. )
  888.  
  889. ; install main editor (2nd part) ?
  890.  
  891. (if (IN parts 0) (
  892.  
  893.     (copyfiles
  894.  
  895.         (source (cat from "data/main"))
  896.         (dest target)
  897.         (all)
  898.     )
  899. ))
  900.  
  901. ; install tools ?
  902.  
  903. (if (IN parts 3) (
  904.  
  905.     (set drive "GoldED:Tools")
  906.  
  907.     (complete 80)
  908.  
  909.     (if (= "RAM" (getdevice drive))
  910.         (set drive "RAM:")
  911.     )
  912.  
  913.     (if (exists "GUIMake:" (noreq)) (set guimake 1))
  914.  
  915.     (if (= guimake 1) (
  916.  
  917.         (set target (tackon drive "GUIMake"))
  918.  
  919.         ((startup
  920.  
  921.             "GUIMake"
  922.  
  923.             (prompt "\n Add 'GUIMake:' assign to 's:user-startup' ? \n")
  924.  
  925.             (help (cat "\n"
  926.  
  927.                 " A 'GUIMake:' assign is required if you want to use\n"
  928.                 " GUIMake (GUI driven compiler frontend).           \n"
  929.             ))
  930.  
  931.             (command  ("ASSIGN >NIL: GUIMake: %s " target))
  932.         ))
  933.     ))
  934.  
  935.     (set target (tackon drive "HiSpeed"))
  936.  
  937.     (run (cat "assign HISPEED: " target))
  938.  
  939.     (if (= update 0) (
  940.  
  941.         (run (cat "delete " target "/#? ALL QUIET" ))
  942.  
  943.         (copyfiles
  944.  
  945.             (source (cat from "tools/HiSpeed"))
  946.             (dest target)
  947.             (all)
  948.             (infos)
  949.         )
  950.  
  951.         (copyfiles (source (cat from "tools/HiSpeed.info")) (infos) (dest drive))
  952.     ))
  953.  
  954.     (complete 85)
  955.  
  956.     (makeassign  "HISPEED" target)
  957.  
  958.     (if (= update 0) (
  959.  
  960.         ((startup
  961.  
  962.             "HISPEED"
  963.  
  964.             (prompt "\n Add 'HISPEED:' assign to 's:user-startup' ? \n")
  965.  
  966.             (help (cat "\n"
  967.  
  968.                 " A 'HISPEED:' assign is required if you want to run\n"
  969.                 " HiSpeed without having to worry about the current \n"
  970.                 " path (i.e. you won't have to CD to HiSpeed's dir).\n"
  971.                 " However, this assignment is not required if you   \n"
  972.                 " don't intend to use the softfonts of this package.\n"
  973.                 "                                                   \n"
  974.             ))
  975.  
  976.             (command  ("ASSIGN >NIL: HISPEED: %s " target))
  977.         ))
  978.  
  979.         (delete "envarc:hispeed.config")
  980.         (delete "s:hispeed.config")
  981.  
  982.         (if (exists "envarc:HiSpeed")
  983.  
  984.             (delete "envarc:HiSpeed/HiSpeed.prefs")
  985.             (makedir "envarc:HiSpeed")
  986.         )
  987.     ))
  988.  
  989.     (copyfiles
  990.  
  991.         (source  (cat from "tools/envarc"))
  992.         (dest    "envarc:")
  993.         (infos)
  994.         (all)
  995.     )
  996.  
  997.     (complete 90)
  998.  
  999.     (copyfiles
  1000.  
  1001.         (source (cat from "tools"))
  1002.         (dest "GoldED:Tools")
  1003.         (pattern "(U|ED|PRJ|REC|GUI)#?")
  1004.         (infos)
  1005.     )
  1006.  
  1007.     (makeassign "GUIMake" "GoldED:tools/guimake")
  1008.  
  1009.     (copyfiles
  1010.  
  1011.         (source (cat from "tools/GUIMake/s/GUIMake.pref"))
  1012.         (dest "s:")
  1013.     )
  1014.  
  1015.     (complete 95)
  1016.  
  1017.     (if (= icons 0) (
  1018.  
  1019.         (copyfiles
  1020.  
  1021.           (source "data/Icons/HiSpeed")
  1022.           (dest target)
  1023.           (infos)
  1024.           (all)
  1025.         )
  1026.  
  1027.         (copyfiles
  1028.  
  1029.           (source "data/Icons/Unlock")
  1030.           (dest "GoldED:Tools/Unlock")
  1031.           (infos)
  1032.           (all)
  1033.         )
  1034.  
  1035.         (copyfiles
  1036.  
  1037.           (source "data/Icons/EDSource")
  1038.           (dest "GoldED:Tools/EDSource")
  1039.           (infos)
  1040.           (all)
  1041.         )
  1042.  
  1043.         (copyfiles
  1044.  
  1045.           (source "data/Icons/PRJSource")
  1046.           (dest "GoldED:Tools/PRJSource")
  1047.           (infos)
  1048.           (all)
  1049.         )
  1050.  
  1051.         (copyfiles
  1052.  
  1053.           (source "data/Icons/Recover")
  1054.           (dest "GoldED:Tools/Recover")
  1055.           (infos)
  1056.           (all)
  1057.         )
  1058.  
  1059.         (copyfiles
  1060.  
  1061.           (source "data/Icons/GUIMake")
  1062.           (dest "GoldED:Tools/GUIMake")
  1063.           (infos)
  1064.           (all)
  1065.         )
  1066.     ))
  1067.  
  1068. ))
  1069.  
  1070. (if (exists "sys:wbstartup/mfr") (
  1071.  
  1072.     (message (cat "\n"
  1073.  
  1074.         "Warning (MFR detected): Don't use MFR (Magic file    \n"
  1075.         "requester) in order to replace the reqtools requester\n"
  1076.         "supported by GED: MFR will cause enforcer hits, i.e. \n"
  1077.         "possible break the system. Addtionally, some features\n"
  1078.         "(e.g. select-directory mode) are not supported by    \n"
  1079.         "MFR.                                                 \n"
  1080.     )) 
  1081. ))
  1082.  
  1083. (if (not (= update 2))
  1084.  
  1085.     (message (cat "\n"
  1086.  
  1087.         "Installation complete. You should now reboot your    \n"
  1088.         "machine.                                             \n"
  1089.     ))
  1090. )
  1091.  
  1092. (complete 100)
  1093.  
  1094.